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PROGRAM TITLE: COMPLEX ARITHMETIC WITH .MODIFIED SQUARE ROOT- 
AM) TRACE ON SENSE SWITCH D 
(Modification of RECOMP II PROGRAM NO. '35) 



I Square Root Modification " 

1. Allows Tor correct computation of the complex 
square root when the imaginary part of the 
number is either zero or smaller than the real 
part by about. 10 . If the. real or imaginary part 
of any complex number is 'zero the exponent must 
also be zero, since it may be used to calculate 
the range of the difference between real and 
imaginary parts. Some floating decimal input 
routines enter ^7d as the exponent with a zero 
mantissa. These must be avoided when entering data. 

2. The accuracy of the complex square root should 

not be assumed greater than four significant digits, 
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PROGRAM TITLE: COMPLEX ARITHMETIC WITH- MODIFIED SQUARE ROOT 
AND TRACE ON SENSE SVTCTCH D 
(Modification of RECOMP II PROGRAM NO. 35) 



II Trace option 



Complex Arithmetic -with modified square root and trace on sense 
switch D. 

1. Trace option prints current location being executed and 
the contents of the complex accumulator after execution of 
the current complex command. 

Only the final answer of the complex command is traced. 

2. Print routine AN01i+ assumed to "be in 7^00- If another loca- 
tion is desired, the transfer address in locations OV35 and 
0)4-37 must. he changed accordingly. If less than 13o digits 
are desired in the output the address portions of OI+36.O 
(for real part) and OMj-0.0 (for imaginary part) must he 
changed accordingly. The number of digits is restricted to 
NN where 2 < NN <_13 in octal. 

3. To trace on a different sense switch, change the op codes in 
Oi+30.0 and 0kk2.0. 

k. Toggle switch under typewriter cover should he set to c/R. 
5. Prog, occupies locations 0000 - OU67 and 7UOO-7637 . 



Square Root Modification 



Location 




Word Modified 


01*00 


00 


7776.0 


50 


01*06.0 


1 


51 


01*23.0 


00 


7775.0 


2 


52 


01*03.1 


6k 


0320.0 


3 


57 


7760.0 


00 


7775.0 


k 


03 


7777.0 


03 


01*07.0 


5- 


52 


01*06.0 


57 


01*02.1 


6 


6k 


01*10.0 


57 


7760.0 


7 


00 


0000.0 


-00 


0007.0 


oiao 


30 


777^.0 


51 


7761*. 


i 


1*1* 


777^-0 


35 


777 j +.o 


2 


30 


7766.0 


35 


7776.0 


3 


6ii- 


031*0.0 


57 


7762.0 


k 


00 


777^.1 


60 


777^.0 


5 


6k 


01*20 


57 


7760.0 


6 


00 


0000.0 


-00 


0000.0 


7 


00 


0000.0 


-00 


0000.0 


01*20 


M 


777l*.0 


35 


7776.0 


1 


30 


7766.0 


35 


7771*. 


2 


6k 


O3I1-O.O 


57 


7762.0 


3 


00 


7775.0 


52 


01*03.1 


4 


00 


7777.1 


03 


7775.1 


5 


03 


01*07.0 


. 5 1 


01*05.0 


6 


00 


0000.0 


-00 


0000.0 


7 


00 


0000.0 


-00 


0000.0 



Trace Optior 


i Modification 






Location 




Word Modified 


01+3Q 


56 


0431.0 


57 


0441.1 


1 


00 


7770.0 


03 


0447.0 


2 


51 


0441.1 


72 


0010.0 


3 


12 


7770.0 . 


65 


0450.0 


4 


67 


0460.0 


72 


0010.0 


5 


30 


0464.0 


57 


7400.0 


6 


00 


0013.0 


72 


0004.0 


7 


30. 


0466.0 


57 


7400.0 


0440 


00 


0013.0 


64 


0450.0 


1 


66 


0460.0 


' 57 


(0000.0) 


2 


•56 


0443.0 


57 


(OOOO.O) 


■■■" 3 . 


00 


•04te.O 


42 


0441.1 


^ 


03 


0446.0 


42 


7770.1 


';. 5 


57 


0432.1 


77 


0445.1 


6 


00 


0000.0 


00 


0000.1 


7 


00 


0000.0 


00 


0447.1 


0101 


42 


0441.1 


00 


777LO 


0105 


35 


7776.0 


57 


0430.0 


0111 • 


i»2 


0441.1 


00 


7771.0 


0115 


35 


7776.0 


57 


0430.0 


0123 


42 


0441.1 


30 


0000.0 


0127 


35 


, 7776.0 


57 


0430.0 


0133 


42 


0441.1 


3^ 


0006.0 


0137 


35 


7776.0 


57 


0430.0 


0145 


42 


0441.1 


41 


0000.1 


0146 


41 


0000.0 


57 


0430.0 



Trace Option 


1 Modification 






Location 




Word Modified 


0171 


42 


0441.1 


57 


0430.0 


0201 


42 


0442.1 


00 


7771.0 


0212 


60 


0022.0 


57 


0442.0 


0222 


01 


7766.0 


42 


0441.1 


0227 


35 


7776.0. 


57 


0430.0 


0231 


42 


0441.1 


00 


7771.0 


0232 


42 


0237.1 


57 


0430.0 


0242 


01 


7767.0 


42 


0441.1 


0246 


ia 


0000.0 


57 


0430.0 


0252 


01 


7767.0 


42 


0441.1 


0256 


41 


0000.0 


57 


0430.0 


0262 


01 


7767.0 


42 


0441.1 


0266 


in' 


0000.0 


57 


0430.0 


0271 


42 


0441.1 


30 


7764.0 


0273 


in 


0000.0 


57 


0430.0 


0305 


k2 


0441.1 


41 


0000.1 


0306 


41 


0000.0 


57 


0430.0 


0311. 


42 


0441.1 


30 


7776.0 


0316 


41 


0000.0 


57 


0430.0 


03^3 


k2 


0441.1 


41 


0000.1 


0344 


41 


0000.0 


57 


0430.0 


0361 


lis 


0441.1 


02 


7776.0 


0362 


60 


7776.0 


57 


0430.0 


0372 


42 


0441.1 


00 


7774.0 


0375 


41 


0000.0 


57 


0430.0. 



